home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / music / maxpak.zip / M1.PR_ / M1.PR
Text File  |  1992-11-30  |  5KB  |  180 lines
  1. PROFILE FILE
  2. * SAMPLE COMMENTS
  3. BRAND "KORG"
  4. INSTRUMENT "M1/R"
  5. KIND PATCH
  6. FILEEXT "M1B"
  7. SIZE 27564
  8. MIDI 1, 16, 11
  9. TRANSMIT
  10.     CLEAR ALL
  11.     YESNO V0, " Ready to send ? "
  12.     IFQUIT V0, 0
  13.     YESNO V0, " Send Bank to Card ? "
  14. *       SEND PROGRAMS
  15.     MESSAGE SHOW "Sending Programs to M1"
  16.     VINIT V2, 0
  17.     CLEAR
  18.     SEND 6, HF0, H42, H3M, H19, H4C, V0
  19.     LOOP 102
  20.         XDATA 3, 140, V2
  21.         VADD V2, V2, 140
  22.     ENDLOOP    
  23.     XDATA 3, 20, 14280
  24.     VADD V2, V2, 20
  25.     SEND 1, HF7
  26. *   GET 6, HF0, H42, H3M, H19, H23, HF7
  27.     WAIT 500
  28.     MESSAGE CLEAR
  29. *       SEND COMBINATIONS
  30.     MESSAGE SHOW "Sending Combinations to M1"
  31.     CLEAR
  32.     SEND 6, HF0, H42, H3M, H19, H4D, V0
  33.     LOOP 104
  34.         XDATA 3, 119, V2
  35.         VADD V2, V2, 119
  36.     ENDLOOP    
  37.     XDATA 3, 24, V2
  38.     SEND 1, HF7
  39.     WAIT 500
  40.     MESSAGE CLEAR
  41. *   GET 6, HF0, H42, H3M, H19, H23, HF7
  42. *       SEND GLOBAL
  43.     CLEAR
  44.     SEND 6, HF0, H42, H3M, H19, H51, V0
  45.     XDATA 3, 861, 26700
  46.     SEND 1, HF7
  47. *   GET 6, HF0, H42, H3M, H19, H23, HF7
  48.     TELL " Success! "
  49.     ENDMACRO
  50. RECEIVE
  51.     YESNO V0,  " Are You Ready ? "
  52.     IFQUIT V0, 0
  53.     YESNO V0, " Get Bank from Card ? "
  54. *       GET PROGRAMS
  55.     MESSAGE SHOW "Receiving Programs from M1"
  56.     CLEAR ALL
  57.     SEND 7, HF0, H42, H3M, H19, H1C, V0, HF7
  58.     GET 6, HF0, H42, H3M, H19, H4C, V0, WAIT
  59.     RDATA 3, 14300, 0
  60.     GET 1, HF7
  61.     SEND 6, HF0, H42, H3M, H19, H23, HF7
  62.     MESSAGE CLEAR
  63. *       GET COMBINATIONS
  64.     MESSAGE SHOW "Receiving Combinations from M1"
  65.     CLEAR
  66.     SEND 7, HF0, H42, H3M, H19, H1D, V0, HF7
  67.     GET 6, HF0, H42, H3M, H19, H4D, V0, WAIT
  68.     RDATA 3, 12400, 14300
  69.     GET 1, HF7
  70.     SEND 6, HF0, H42, H3M, H19, H23, HF7
  71.     MESSAGE CLEAR
  72. *       GET GLOBAL
  73.     CLEAR
  74.     SEND 7, HF0, H42, H3M, H19, H0E, v0, HF7
  75.     GET 6, HF0, H42, H3M, H19, H51, V0, WAIT
  76.     RDATA 3, 861, 26700
  77.     GET 1, HF7
  78.     SEND 6, HF0, H42, H3M, H19, H23, HF7
  79.     TELL " Success! "
  80.     ENDMACRO
  81. DISKSAVE
  82.     DOPEN W, "M1B"
  83.     MESSAGE SHOW "Saving Patches"
  84.     VINIT V1, 0
  85.     LOOP 100
  86.         DWRITE 143, V1
  87.         DPUT 0
  88.         VADD V1, V1, 143
  89.     ENDLOOP    
  90.     MESSAGE CLEAR
  91.     MESSAGE SHOW "Saving Combinations"
  92.     LOOP 100
  93.         DWRITE 124, V1
  94.         VADD V1, V1, 124
  95.     ENDLOOP    
  96.     MESSAGE CLEAR
  97.     MESSAGE SHOW "Saving Global and Drum Set Data"
  98.     DWRITE 861, V1
  99.     DCLOSE
  100.     ENDMACRO
  101. DISKLOAD
  102.     DOPEN R, "M1B"
  103.     MESSAGE SHOW "Reading Patches"
  104.     VINIT V1, 0
  105.     LOOP 100
  106.         DREAD 143, V1
  107.         DGET V2
  108.         VADD V1, V1, 143
  109.     ENDLOOP
  110.     MESSAGE CLEAR
  111.     MESSAGE SHOW "Reading Combinations"
  112.     LOOP 100
  113.         DREAD 124, V1
  114.         VADD V1, V1, 124
  115.     ENDLOOP
  116.     MESSAGE CLEAR
  117.     MESSAGE SHOW "Reading Globals and Drums"
  118.     DREAD 861, V1
  119.     MESSAGE CLEAR
  120.     DCLOSE
  121.     ENDMACRO
  122. * 1st View ---- M1 Programs
  123. VIEW
  124.     PATCH TITLE "PROGRAMS"
  125.     PATCH OFFSET 0
  126.     PATCH LENGTH 143
  127.     PATCH NUMBER 100
  128. *   PATCH CHECKSUM ??       M1 doesn't have a Checksum byte
  129.     NAME LENGTH 10
  130.     NAME OFFSET 0
  131.     NAME XFORM 0            Just Plain ASCII
  132.     TRANSMIT
  133.         TELL " Ready to send Program ? "
  134. *           SEND PROGRAM
  135.         CLEAR
  136.         SEND 5, HF0, H42, H3M, H19, H40
  137.         XDATA 3, 143, 0
  138.         SEND 1, HF7
  139.     ENDMACRO
  140.     RECEIVE
  141.         TELL " Are You Ready to receive|Program from the M1 ? "
  142. *       GET PROGRAMS
  143.         CLEAR
  144.         SEND 6, HF0, H42, H3M, H19, H10, HF7
  145.         GET 5, HF0, H42, H3M, H19, H40
  146.         RDATA 3, 143, 0
  147.         GET 1, HF7
  148.         SEND 6, HF0, H42, H3M, H19, H23, HF7
  149.     ENDMACRO
  150. VIEWEND                 Could also be DEF END
  151. VIEW
  152.     PATCH TITLE "COMBINATIONS"
  153.     PATCH OFFSET 14300
  154.     PATCH LENGTH 124
  155.     PATCH NUMBER 100
  156. *   PATCH CHECKSUM ??       M1 doesn't have a Checksum byte
  157.     NAME LENGTH 10
  158.     NAME OFFSET 0
  159.     NAME XFORM 0            Just Plain ASCII
  160.     TRANSMIT
  161.         TELL " Ready to send Combination ? "
  162. *           SEND PROGRAM
  163.         CLEAR
  164.         SEND 5, HF0, H42, H3M, H19, H49
  165.         XDATA 3, 123, 0
  166.         SEND 1, HF7
  167.     ENDMACRO
  168.     RECEIVE
  169.         TELL " Are You Ready to receive|Combination from the M1 ? "
  170. *       GET PROGRAMS
  171.         CLEAR
  172.         SEND 6, HF0, H42, H3M, H19, H19, HF7
  173.         GET 5, HF0, H42, H3M, H19, H49
  174.         RDATA 3, 123, 0
  175.         GET 1, HF7
  176.         SEND 6, HF0, H42, H3M, H19, H23, HF7
  177.     ENDMACRO
  178. VIEWEND                 Could also be DEF END
  179. * END OF DEFINITION 
  180.